home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / time_clock.lha / TimeClock < prev    next >
Text File  |  1995-10-07  |  6KB  |  93 lines
  1. /**************************************************************************\
  2.            $VER: Time Clock, v1.6 (7-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; se=sendstring ; gc=getchar ; qu=query ; gu=getuser
  6.  
  7. v1='d e 9 f c'       /* Text, Colon, BIG #'s, :, A/PM - Current Time  */
  8. v2='d e 9 f c'       /* Text, Colon, BIG #'s, :, A/PM - Logon Time    */
  9. v3='d e b'           /* Text, Colon, BIG Number for Minutes Online    */
  10. v4='7 a e f b a 7 e' /* Text, YourCalls, SysCalls, TotText, BBSName,  */
  11.                      /* MinsLeft, Paries, "enter"                     */
  12. v5='  '              /* Gutter Space between BIG characters.          */
  13.  
  14. parse var v1 c1 c2 c3 c4 c5 ; parse var v2 l1 l2 l3 l4 l5
  15. parse var v3 m1 m2 m3       ; parse var v4 t1 t2 t3 t4 t5 t6 t7 t8
  16. c5=strip(c5) ; l5=strip(l5) ; m3=strip(m3) ; t8=strip(t8)
  17. gu 28 ; if result>1 then term=0 ; else term=1
  18. if term=0 then call ANSI ; else call ASCII
  19.  
  20. gu 57 ; l=subword(result,3) ; a=right(l,1) ; lap='' ; cntr=90
  21. if a='a' | a='p' then do ; lap='AM' ; l=left(l,length(l)-1)
  22.     cntr=96 ; if a='p' then lap='PM' ; end
  23. logon=l||lap ; gu 1200032 ; mins=result%10 ; gu 7 ; left=result%10
  24. gu 22 ; total=result ; gu 95 ; stotal=result
  25. bbsidentify name ; bbsname=result
  26. gu 12 ; t=subword(result,3) ; a=right(t,1) ; ap=''
  27. if a='a' | a='p' then do ; ap='AM' ; t=left(t,length(t)-1)
  28.     if a='p' then ap='PM' ; end
  29. time=t||ap ; time.='' ; logon.='' ; mins.=''
  30.  
  31. tr 'f1Cc'c1'Current Timec'c2':'
  32. do i=1 to length(time) ; a=substr(time,i,1) ; a=index('0123456789:APM',a)-1
  33.     c='' ; if a<10 then c='c'c3 ; if a=10 then c='c'c4 ; if a>10 then c='c'c5
  34. do j=1 to 4+term ; time.j=time.j||c||n.a.term.j||v5 ; end j ; end i
  35. do i=1 to 4+term ; tr center(time.i,cntr) ; end i
  36.  
  37. tr 'n1Cc'l1'Your Logon Timec'l2':'
  38. do i=1 to length(logon) ; a=substr(logon,i,1) ; a=index('0123456789:APM',a)-1
  39.     c='' ; if a<10 then c='c'l3 ; if a=10 then c='c'l4 ; if a>10 then c='c'l5
  40. do j=1 to 4+term ; logon.j=logon.j||c||n.a.term.j||v5 ; end j ; end i
  41. do i=1 to 4+term ; tr center(logon.i,cntr) ; end i
  42.  
  43. tr 'n1Cc'm1'Minutes Onlinec'm2':c'm3
  44. do i=1 to length(mins) ; a=substr(mins,i,1) ; a=index('0123456789:APM',a)-1
  45. do j=1 to 4+term ; mins.j=mins.j||n.a.term.j||v5 ; end j ; end i
  46. do i=1 to 4+term ; tr center(mins.i,78) ; end i
  47.  
  48. se 'n1>9c't1"You've made c"t2||total' c't1'of the c't3||stotal
  49. tr ' c't4'Total Calls c't1'to c't5||bbsname'c't1'...'
  50. se 'n1>9You have c't6||left' c't1'minutes left this call...'
  51. tr 'c't7'(c't8'enterc't7')i1'
  52. exit
  53.  
  54. ASCII:
  55.     n.0.1.1=' ##### ' ; n.0.1.2='#   ###' ; n.0.1.3='#  #  #' ; n.0.1.4='###   #' ; n.0.1.5=' ##### '
  56.     n.1.1.1=' ## '    ; n.1.1.2='### '    ; n.1.1.3=' ## '    ; n.1.1.4=' ## '    ; n.1.1.5='####'
  57.     n.2.1.1=' ##### ' ; n.2.1.2='##   ##' ; n.2.1.3='   ##  ' ; n.2.1.4='###    ' ; n.2.1.5='#######'
  58.     n.3.1.1=' ##### ' ; n.3.1.2='##   ##' ; n.3.1.3='   ### ' ; n.3.1.4='##   ##' ; n.3.1.5=' ##### '
  59.     n.4.1.1='##  ## ' ; n.4.1.2='##  ## ' ; n.4.1.3='#######' ; n.4.1.4='    ## ' ; n.4.1.5='    ## '
  60.     n.5.1.1='###### ' ; n.5.1.2='##     ' ; n.5.1.3='###### ' ; n.5.1.4='     ##' ; n.5.1.5='###### '
  61.     n.6.1.1='  #### ' ; n.6.1.2=' ##    ' ; n.6.1.3='###### ' ; n.6.1.4='##   ##' ; n.6.1.5=' ##### '
  62.     n.7.1.1='#######' ; n.7.1.2='     ##' ; n.7.1.3='    ## ' ; n.7.1.4='   ##  ' ; n.7.1.5='  ##   '
  63.     n.8.1.1=' ##### ' ; n.8.1.2='##   ##' ; n.8.1.3=' ##### ' ; n.8.1.4='##   ##' ; n.8.1.5=' ##### '
  64.     n.9.1.1=' ##### ' ; n.9.1.2='##   ##' ; n.9.1.3=' ######' ; n.9.1.4='    ## ' ; n.9.1.5=' ####  '
  65.     n.10.1.1='  ' ; n.10.1.2='##' ; n.10.1.3='  ' ; n.10.1.4='##' ; n.10.1.5='  '
  66.     n.11.1.1=' ##### ' ; n.11.1.2='##   ##' ; n.11.1.3='#######' ; n.11.1.4='##   ##' ; n.11.1.5='##   ##'
  67.     n.12.1.1='###### ' ; n.12.1.2='##   ##' ; n.12.1.3='###### ' ; n.12.1.4='##     ' ; n.12.1.5='##     '
  68.     n.13.1.1='###   ###' ; n.13.1.2='#### ####' ; n.13.1.3='## ### ##' ; n.13.1.4='##  #  ##' ; n.13.1.5='##     ##'
  69.   return
  70.  
  71. ANSI:
  72.     n.0.0.1=' ▄▄▄▄▄ ' ; n.0.0.2='██  ▄██' ; n.0.0.3='██▄▀ ██' ; n.0.0.4='▀█▄▄▄█▀'
  73.     n.1.0.1=' ▄▄ '    ; n.1.0.2='▀██ '    ; n.1.0.3=' ██ '    ; n.1.0.4='▄██▄'
  74.     n.2.0.1=' ▄▄▄▄▄ ' ; n.2.0.2='▀▀   ██' ; n.2.0.3='▄█▀▀▀▀ ' ; n.2.0.4='██▄▄▄▄▄'
  75.     n.3.0.1=' ▄▄▄▄▄ ' ; n.3.0.2='▀▀   ██' ; n.3.0.3='   ▀▀█▄' ; n.3.0.4='▀█▄▄▄█▀'
  76.     n.4.0.1='▄▄   ▄▄' ; n.4.0.2='██   ██' ; n.4.0.3=' ▀▀▀▀██' ; n.4.0.4='     ██'
  77.     n.5.0.1='▄▄▄▄▄▄▄' ; n.5.0.2='██▄▄▄▄ ' ; n.5.0.3='     ██' ; n.5.0.4='▀█▄▄▄█▀'
  78.     n.6.0.1='  ▄▄▄  ' ; n.6.0.2='▄█▀    ' ; n.6.0.3='██▀▀▀█▄' ; n.6.0.4='▀█▄▄▄█▀'
  79.     n.7.0.1='▄▄▄▄▄▄▄' ; n.7.0.2='     ██' ; n.7.0.3='   ▄█▀ ' ; n.7.0.4='  ██   '
  80.     n.8.0.1=' ▄▄▄▄▄ ' ; n.8.0.2='██   ██' ; n.8.0.3='▄█▀▀▀█▄' ; n.8.0.4='▀█▄▄▄█▀'
  81.     n.9.0.1=' ▄▄▄▄▄ ' ; n.9.0.2='██   ██' ; n.9.0.3=' ▀▀▀▀██' ; n.9.0.4='▀█▄▄▄█▀'
  82.     n.10.0.1='  ' ; n.10.0.2='██' ; n.10.0.3='▄▄' ; n.10.0.4='▀▀'
  83.     n.11.0.1=' ▄▄▄▄▄ ' ; n.11.0.2='██   ██' ; n.11.0.3='██▀▀▀██' ; n.11.0.4='██   ██'
  84.     n.12.0.1='▄▄▄▄▄▄ ' ; n.12.0.2='██   ██' ; n.12.0.3='██▀▀▀▀ ' ; n.12.0.4='██     '
  85.     n.13.0.1='▄▄     ▄▄' ; n.13.0.2='███▄ ▄███' ; n.13.0.3='██ ▀█▀ ██' ; n.13.0.4='██     ██'
  86.   return
  87.  
  88. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  89.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  90.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  91. /** Last Edited: 7-Oct-95 *************************************************\
  92. \****************************************** Frontiers BBS (716)/823-9892 **/
  93.